|
|
 |
|
|
|
|
115: Exit Function
116: initializeRegistryErr:
117: 'Err.Raise vbError + 1010, initializeRegistry,
Registry is corrupt or missing
118: MsgBox Registry is corrupt or missing, 64, initializeRegistry
119: Exit Function
120: End Function
121:
122: Public Function findFirstItem(argString As String)
123: 'Finds the first occurrence of an item
124: 'Do Copy Key in Registry, then do
125: 'a ClipBoard.GetText to load full
126: 'key into a variable
127: SendKeys ^F & argString & {ENTER}, True 'CTRL+F
128:
129: 'Copy full key name to ClipBoard (ALT+E)
130: SendKeys %EC, True
131: m_returns = getFullRegKeyName
132: End Function
133:
134: Public Function getFullRegKeyName()
135: 'If argString exists, caller wants this method
136: 'to first find the item, then return the
137: 'corresponding full key name
138:
139: getFullRegKeyName = Clipboard.GetText(vbCFText)
140: End Function
141:
142: Public Function findNextItem()
143: 'Send F3 keystroke
144: SendKeys {F3}, True
145: End Function |
|
|
|
|
|
|
|
|
As you can see, the RegistryFacade class is fairly short. The methods in this class include the following: |
|
|
|
|
|